/****************************************************************************
 *
 * MODULE:       bitmap
 * AUTHOR(S):    David Gerdes (CERL) (original contributor)
 *               Markus Neteler <neteler itc.it>, 
 *               Bernhard Reiter <bernhard intevation.de>, 
 *               Brad Douglas <rez touchofmadness.com>, 
 *               Glynn Clements <glynn gclements.plus.com>
 * PURPOSE:      provides basic support for the creation and manipulation of
 *               two dimensional bitmap arrays
 * COPYRIGHT:    (C) 1999-2006 by the GRASS Development Team
 *
 *               This program is free software under the GNU General Public
 *               License (>=v2). Read the file COPYING that comes with GRASS
 *               for details.
 *
 *****************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <grass/bitmap.h>


static int dump_map (struct BM *map);


int 
main (int argc, char *argv[])
{
    int SIZE;
    struct BM *map, *map2;
    int i, x, y;
    int dump;
    FILE *fp;

    if (argc < 2)
	SIZE = 11;
    else
	SIZE = atoi (argv[1]);

    if(NULL != getenv ("NODUMP"))
	dump = 0;
    else
	dump = 1;

    map = BM_create (SIZE, SIZE);

    /* turn on bits in X pattern */
    for (i = 0 ; i < SIZE ; i++)
    {
	BM_set (map, i, i, 1);
	BM_set (map, (SIZE-1)-i, i, 1);
    }


    if (dump)
	dump_map (map);
    fprintf (stdout, "Size = %d\n", BM_get_map_size (map));

    fprintf (stdout, "\n\n");

    /* now invert it */
    for (y = 0 ; y < SIZE ; y++)
	for (x = 0 ; x < SIZE ; x++)
	    BM_set(map, x, y, !BM_get (map, x, y));

    if (dump)
	dump_map (map);

    fprintf (stdout, "Size = %d\n", BM_get_map_size (map));

    {
	fp = fopen ("dumpfile", "w");
	BM_file_write (fp, map);
	fclose (fp);

	fp = fopen ("dumpfile", "r");
	map2 = BM_file_read (fp);
	fclose (fp);
	dump_map (map2);
    }

    BM_destroy (map);
    BM_destroy (map2);

    return 0;
}


static int 
dump_map (struct BM *map)
{
    int x, y;

    for (y = 0 ; y < map->rows ; y++)
    {
	for (x = 0 ; x < map->cols ; x++)
	{
	    fprintf (stdout, "%c", BM_get(map, x, y) ? '#' : '.');

	}
	fprintf (stdout, "\n");
    }
}



